unit PostaFrm;

interface

uses
  Windows, Classes,
  Controls, StdCtrls, ExtCtrls, ActnList, StdActns,
  DB, DBClient, alBaseDataSet, MConnect,
  Forms, SifrantFrm,
  PoslovanjeSrv_TLB,
  cxClasses, cxControls, cxGraphics, cxContainer, cxStyles, cxEditRepositoryItems,
  cxCustomData, cxData, cxFilter,
  cxEdit, cxDBEdit, cxTextEdit, cxDBData,
  cxGrid, cxGridLevel, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridBandedTableView, cxGridDBBandedTableView, cxDBEditRepository,
  cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox, ImgList, cxDataStorage, kdbinfo, kdbstruc;

type
  TfrmPosta = class(TfrmSifrant)
    grdtvMainDrzavaNaziv: TcxGridDBBandedColumn;
    rpstMainDrzavaNazivEdit: TcxEditRepositoryLookupComboBoxItem;
    lkpcbDrzava: TcxDBLookupComboBox;
    lblDrzava: TLabel;
    scnDrzava: TSharedConnection;
    cdsDrzava: TBaseDataSet;
    dtsrcDrzava: TDataSource;
    rpstMainDrzavaNaziv: TcxEditRepositoryTextItem;
    lblSifra: TLabel;
    edtSifra: TcxDBMaskEdit;
    rpstMainSifra: TcxEditRepositoryMaskItem;
    grdtvMainSifra: TcxGridDBBandedColumn;
  private
    { Private declarations }
  protected
    procedure Deinitialize; override;
    procedure DoDBRefresh; override;
    procedure Initialize; override;
  public
    { Public declarations }
  end;

var
  frmPosta: TfrmPosta;

implementation

uses
  MainFrm;

{$R *.dfm}

{ TfrmPosta }

procedure TfrmPosta.Deinitialize;
begin
  cdsDrzava.Close;
  inherited;
end;

procedure TfrmPosta.DoDBRefresh;
begin
  inherited;
  cdsDrzava.Refresh;
end;

procedure TfrmPosta.Initialize;
begin
  inherited;
  cdsDrzava.Open;
end;

end.
